package Valeur is
   subtype Valeur is natural range 0 .. 2000; -- le sous-type Valeur representant la valeur d'une note;
end Valeur;
